home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #4 / Commodore_Disk_User_Vol.4_4_1991_-.d64 / techno tip (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  297b  |  7 lines
  1. 0 rem ** cdu techno info tip  feb.1991
  2. 1 open4,4:forn=0to63:forx=0to3:d=n+64*x:d$=right$("  "+str$(d),3)+" %":a$=""
  3. 2 b=d:fori=0to7:t=b-int(b/2)*2:a$=chr$(49+1*(t=0))+a$:b=int(b/2):next
  4. 3 d$=d$+a$+" $":a$=""
  5. 4 ifdthena=int(d/16):a$=mid$("0123456789abcdef",1+d-a*16,1)+a$:d=a:goto4
  6. 5 d$=d$+right$("00"+a$,2)+"   ":print#4,d$;:next:print#4:next:close4
  7.